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s sadeennoesnannnbenenonseeneensneonenencenennanecnsaseencnneeoecsoeuenocenees 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


** * 
** ® 
** * 
:* ® 
:* ® 
is THIS SOFTWARE. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPLED + 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
tS COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
s* TRANSFERRED. . 
** ® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
S® AND SHOULD NOT ‘ 
-* *® 
:* ® 
** ® 
: ® 
** ® 
** ® 
-* ® 


BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ARRAS AAAAAAALEAL AAA LALA EL ALAA LEAS EASE AREER ERE RRR RRR ARR RRR SEAR SESS 


; ENVIRONMENT: prefix file 
AUTHOR: Ken Henderson CREATION DATE: 10 Feb 1983 
MODIFIED BY: 


VO3-010 MSHO067 Michael S. Harve 19-Jul-1984 
Add JPIS_MAXDETACH, _MAXJOB and. ” SHRFILLM. 


v03-009 HWS0056 Harold Schultz 11-Apr-1984 
Add JPI$_MASTER_PID. 


v03-008 CwWH3008 Hobbs 20-Mar-1984 
Add JPI$_PROC _INDEX 


v03-007 MSHO010  Richeet S. Harvey 16-Feb-1984 
Add Jrig- TABLENAM 
Add JPI$_CREPRC_FLAGS 
Add JPI$_UAF_FLAGS 


v03-006 ACG0385 Andrew C. Goldstein, 29-Dec-1983 16:23 
Add JPI$_JOBTYPE item 


v03-005 KFHOO04 Ken Henderson 10 Sep 1983 
Added CLINAME itemcode. 
Added MODE, removed ee item-codes for 
PCBSL_STS since they're defined in SYSDEF. 


v03-004 KFHOOO3 Ken Henderson 23 Mar 1983 


OF! 


S¥l 
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Added PHDFLAGS. 


v03-003 KFHOOO en Henderson 1 Mar 1983 
paged esereetes for every r. in 
Bite one modified calls to 
131 siren macro. (some parameters 
added a aM 


v03-002 CwH1002 CW Hobbs 25-Feb-1983 
Modify JPI$_PID and SPIS OWNER to return extended pids from 
PCBS$L_EPID and PCBSL_EOWNER. 


v03-001 KFHOOO1 Ken Henderson 10 Feb 1983 
Added JPIS_MSGMASK item-code. 


» 
" 
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«MACRO JPI_GENERATE_TABLE 


—_ 


+ 
+ 


ABSTRACT: 
JPI_GENERATE_TABLE macro 
This macro expands to pererete multiple calls to the JPI {TER CODE macro, 
which must be previously locally defined in the module which Tnvokes 
: ‘Pl “GENERATE TABLE. 
The parameters that are passed to the JPI_ITEM_CODE macro follow: 
BASE determines which Exeser/ JPt table to use. It's 


tables correspond rough r. _ og source of the data. 
The Legal pecemerer value 


eaee eee eee eee ee eeeeeenene 


: ADR, CYL, PCB. PHD. PCBFLD, PHDFLD 

: NAME is the name of the SYS$GETJPI gre tig 5 

: The legal perenetes ve,uee ve her e determined by 

3 the SJPIDEF macro (in CVMSLIB. rERCISTARDEFFL. SDL). 

: SOURCE is either an address of a cell, or an offset into 

; a data structure. 

; DTYPE is both a datatype and a usage indicator. 

$ The legal values and examples for this parameter follow: 
: STDTIM (CTL$GQ_LOGIN) 4 bit time 

3 STDUIC (PCBS$L_OIC) user ID code 

3 HE XNUM (CTLSAG EXCVEC) hex number 

3 DECNUM (PCBEL_BYTLM) decimal number 

; PRVMSK ‘(PHDS$Q_PRIVMSK) privilege mask 

; PRTMSK (UCB$ ROT) protection mask 

; STRDSC (CTLSGC_IMGHDRBF ) string descr 

; CNTSTR (PCB$T_TERMINAL) counted string: <nenneaay 
3 PADSTR (JIBST_ACCOUNT) blank padded s 

3 BITVEC (PCBSL ) bit vector 

: BITVAL CBS V- TERMDIAL) boolean quantity 

: ACPTYP (AQB$B_ ACPTYP) ACP type 

: BITPCS is the bit position for BITVAL data items. 

: BITSIZ is the bit size for BITVAL data items. 

; OUTLEN is used by EXESGETJPI in fetching information (number 

: f bytes). 

: STRUCT is the user's data structure containing the information. 
3 (which is sometimes different than BASE) 


ae ite etree 0 Ga 


;_address of exception vectors 
JPI_ITEM_ CODE = 
ADR; EXCVveECc, CTLSAQ_EXCVEC, HEXNUM, 0, 0, 
;_ address of final exception vectors 
JPI_ITEM CODE - 
ADR; FINALEXC, CTLSAL_FINALEXC, HEXNUM, 0, 0, 
: Define Entries to CiifBi’’ "°°" "**" 
TBASE, NAME, SOURCE, DTYPE, BITPOS, BITSIZ, 
iefctien, CODE size 
VIRTPEAK, CTLSGL_VIRTPEAK, DECNUM, 0, 0, 
fetta set size 
OSPEAK, CTLSGL_WSPEAK, DECNUM, 0, 0, 
3;_ username string 
ate _ITEM_CODE - 
TL OSERNAME , JIBST_USERNAME, PADSTR, 0, 0, 
3_account name _String 
ipl _ITEM_CODE - 
CTL? ACCOUNT, JIBST_ACCOUNT, PADSTR, 0, 0, 
jp rien. co preeees privileges 
CTL, PROCPRIV, CTL$GQ_PROCPRIV, PRVMSK, 0, 0, 
;__number of volumes mounted 
JPI_ITEM COD 
CTL? VOLUMES, CTLSGL_VOLUMES, DECNUM, 0, 0, 
sel THER creation time 
COGINTI IM, CTL$GQ_LOGIN, STDTIM, 0, 0, 
i, |*9fE,h header buffer address which is used to get image name 
CTL? THAGHARE , CTLSGL_IMGHDRBF, STRDSC, 0, 0, 
jp ITEM CODE site-specific cell 
CTL, SITESPEC, CTLSGL_SITESPEC, DECNUM, 0, 0, 


OUTLEN, 
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'BASE, NAME, SOURCE, DTYPE, BITPOS, BITSIZ, OUTLEN, STRUCT 


ADR 


ADR 


STRUCT 


CTL 


CTL 


JIB 


JIB 


CTL 


CTL 


CTL 


CTL 


CTL 


= eet 
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;_ Default message mask 

JPI_ITEM CODE = 

CTL? FISGMASK, CTLSGB_MSGMASK, BITVEC, 0, 0, 
3_ command senguege interpreter name 

JPI_ITEM_CODE - 

CTL, CLINAME, CTLSGT_CLINAME, CNTSTR, 0, 0, 
:_ command penguage interpreter table name 

JPI_ITEM_ CODE - 

CTL? TABLENAME, CTLSGT_TABLENAME, CNTSTR, 0, 0, 
ipl ivem c in ar which created this process 

CTL? CREPRC. FLAGS, CTLSGL_CREPRC_FLAGS, BITVEC, 0, 0, 
: pl ifn from user’ s UAF record 

JPI_ITEM_COD 

CTL? OAF “FLAGS, CTLSGL_UAF_FLAGS, BITVEC, 0, 0, 
; Pr TTEn CODE = of detached processes for a single username 
CTL? MAXDETACH, JIBSW_MAXDETACH, DECNUM, 0, 0, 
3;_maximum number of active processes for a single username 
JPI_ITEM CODE - 

CTL? MAXJOBS, JIBSW_MAXJOBS, DECNUM, 0, 0, 
3; maximum number of open shared files 

JPI_ITEM_CODE - 

CTL? SHRFILLM, JIBSW_SHRFLIM, DECNUM, 0, 0, 


1, 


40, 


255, 
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CTL 


CTL 


CTL 


CTL 


CTL 


JIB 


JIB 


JIB 


et) 
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a Hitty itt bat ectppagap eee ecaaccaccaa: 


BASE, NAME, SOURCE, DTYPE, BITPOS, BITSIZ, OUTLEN, STRUCT ‘. 
° tt 
3 access modes with active ASTs 7? 
JPI_ITEM_CODE - ;* 
PCB? RSTACT, B_ASTACT, BITVEC, 0, 0, 1, PCB . 
3 access modes with ASTs enabled 3* 
JPI_ITEM_CODE = 3* 
PCB, ASTEN, B_ASTEN, BITVEC, 0, 0, UP PCB ‘* 
3 current process priorit 3* 
JPI_ITEM cboe - 4 J 3* 
PCB, RI, B_PRI, DECNUM, 0, 0, ¥ PCB ‘* 
; PID of creator ;* 
JPI_ITEM_CODE - 3* 
PCB, OWNER, L_EOWNER, HEXNUM, 0, 0, 4, PCB > 
3; UIC of process :* 
JPI_ITEM_CODE - i* 
Pca, ~=—s«DIC, L_UIC, STDUIC, 0, 0, 4, PCB - 
3; group field of UIC 
pf iren CODE - 3* 
RP, W_GRP, DECNUM, 0, 0, as PCB .' 
3; member al of UIC 3 
JPI_ITEM 3 
PCB; eRe W_MEM, DECNUM, 0, 0, 2. PCB : 
PrTtERecoD status : 
ip ITEM_CODE - F 
STs, L_STSs, BITVEC, 0, 0, 4, PCB : 
3 process state 3 
jpl nent cooe 3 
STATE W_STATE, DECNUM, 0, 0, 2. PCB : 
process base priority $ 
jp ITEM_CODE - : 
PCB, PRIB, B_PRIB, DECNUM, 0, 0, Te PCB : 
ctive age ¢ table count $ 
ipl. ITEM 3 
PCBs RETCAT, W_APTCNT, DECNUM, 0, 0, 2, PCB : 
3 termination mailbox unit : 
JPI_ITEM_CODE - : 
PCB, TMBU, W_TMBU, DECNUM, 0, 0, a. PCB : 


3; global age count in ws 
JPI_ITEM_CODE =- 


JPITABLE .MAR; 1 
PCB, GPGCNT, W_GPGCNT, 
rocess Bee? count in ws 
gi TEMaC 

PPCENT, W_PPGCNT, 
;_ast_co unt pn 
JPI_ITEM 
PCB, KSTCNT, W_ASTCNT, 
;_ buffered 1/0 count remaining 
JPI_ITEM COD 
PCB, BIOCNT, W_BIOCNT, 
;_buffered 1/0 Limit 
JPI_ITEM_ CODE - 
PCB; BIOLM, W_BIOLA, 
;_buffered 1/0 byte count remaining 
JPI_ITEM_ CODE - 
PCB, BYTCNT, L_BYTCNT, 
;_direct 1/0 count remaining 
JPI_ITEM CODE - 
PCB, BIOCNT, W_DIOCNT, 
;_direct 1/0 count Limit 
JPI_ITEM_ CODE - 
PCB, BIOLM, W_DIOLM, 
3_enqueue count remaining 
JPI_ITEM_ CODE =- 
PCB, — ENQCNT, W_ENQCNT, 
3 enqueue count Limit 
JPI_ITEM_CODE - 
PCB, ENQLM, W_ENQLM, 
3;_open file count remaining 
JPI_ITEM_CODE - 
PCB, FILCNT, W_FILCNT, 


c 
PI_ITEM_CO 
CB; Ss TQcNT, W_TQCNT, 


3; event flag wait mask 
JPI_ITEM_CODE - 
PCB FWM, L_EFWM, 


cal event flags 0-31 
~1TER CODE - 
EFCS, L_EFCS, 


l event flags 32-64 
EM_CODE - 


ont renemnine of time queue entries 
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DECNUM, 0, 0, 2, PCB 
DECNUM, 0, 0, 2. PCB 
DECNUM, 0, 0, 2, PCB 
DECNUM, 0, 0, 2, PCB 
DECNUM, 0, 0, 2. PCB 
DECNUM, 0, 0, 4, JIB 
DECNUM, 0, 0, 2, PCB 
DECNUM, 0, 0, 2, PCB 
DECNUM, 0, 0, 2, JIB 
DECNUM, 0, 0, 2, JIB 
DECNUM, 0, 0, 2, JIB 
DECNUM, 0, 0, 2. JIB 
BITVEC, 0, 0, 4, PCB 
BITVEC, 0, 0, 4, PCB 
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PCB, EFCU, L_EFCU, 
: process identification 

JP1_I CODE - 

cB, PID, LLEPID, 
; buffered 1/0 _byte count Limit 
JPI_ITEM CODE - 
PC BYTLM, L_BYTLM, 


1 

cB; 

sub recess count 
Pil 

cB; MBRCCAT, 
t 
1 
8° 


W_PRCCNT, 
3; tota ta Sepprecess count in job 
JPI_ITE 
PC MSGBPRCCNT, W_PRCCNT, 
Pr TFER Op name _String 
sel ITEM_CODE = 
PRONAN, T_LNAME, 
oping terminal name 
ipl COD 
PCB, TERMINAL, T_TERMINAL, 


; swap file backing store address 
jpl 1 TEM_COD 


PCB; SuPFILLOC, L_WSSwWP, 
3; process mode 
jP1_ITEM_CODE - 
PCB, MODE, L_STS, 
pe code 
je “Iteh CODE - 
PCB JOBTYPE, B_JOBTYPE, 


PCB Phot * INDEX, L_PID, 
; PID of master process in a job. 
Pl ITEM_CODE - 

MASTER_PID, L_MPID, 
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BITVEC, 


HEXNUM, 


DECNUM, 


DECNUM, 


DECNUM, 


CNTSTR, 


CNTSTR, 


HEXNUM, 


DECNUM, 


DECNUM, 


j ” “THER index code - unique id for process 


DECNUM, 


HE XNUM, 


0 


0, 


0, 


0, 


0, 


PCB 


PCB 


JIB 


PCB 


JIB 


PCB 


PCB 


<B 


PCB 


JIB 


PCB 
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; Betine entries to Pubfei’*****""""""""* 


:BASE, NAME, SOURCE, 


ATTER’ Cob current privilege mask 
ip ITEM CODE = 


tur RPRIV, Q_PRIVMSK, 
3; current working set size 
JPI ATE core 
PHD QSSIZE W_WSSIZE, 
3; aut por \gee worttng set size 
JPI_ITEM_CODE - 
PHD? QSAUTH, W_WSAUTH, 
a tie on working set size 
PI_ITEM_CODE - 
PHD; "asauoTa, W_WSQUOTA, 
3; maximum payers on working set 
jpi coe COD 
OSEXTENT, W_WSEXTENT, 


H jets i vor ‘ees working set extent 
PH D> OSAUTHEXT, W_WSAUTHEXT, 
; default porting set size 
JPI_ITEM_CODE - 
PHD, BFWSCNT, W_DFWSCNT, 
first free addr. at end of PO space 
oh 1 EM_COD 
FREP VA, L_FREPOVA, 
; first free addr. at end of P1 space 
JPI_ITEM_CODE - 
PHD; FREP1VA, L_FREPIVA, 
preriatie. ages for expansion 


JPI_ITEM 
PHD, FREPTECNT, L_FREPTECNT, 


default cbaee_ fault cluster 
jPi ITEM 

PHD; BrPre, B_DFPFC, 
3; process feet io accumulated 
JPI_ITEM_C 

PHD; CeUTiM, L_CPUTIM, 


3 prerocess quota 
JPI_ITEM_CODE - 


DTYPE, 


PRVMSK, 


DECNUM, 


DECNUM, 


DECNUM, 


DECNUM, 


DECNUM, 


DECNUM, 


HEXNUM, 


HEXNUM, 


DECNUM, 


DECNUM, 


DECNUM, 


BITPOS, BITSIZ, OUTLEN, STRUCT 


0, 


0, 


0, 


0, 


PHD 


PHD 


PHD 


PHD 


PHD 


PHD 


PHD 


PHD 


PHD 


PHD 


PHD 


PHD 


F} inege counter (clocked by RUNDOWN) 
JPI_LITEM_CODE - 
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PHD,  PRCLM, W_PRCLIM, DECNUM, 0, 0, S J1B | 
mit 
jel Stren CODE - 
PHD; ASTLM, W_ASTLM, DECNUM, 0, 0, Ze PHD 
recess. accumulated faults | 
ga iTER,t ODE - 
PAGEFLTS, L_PAGEFLTS, DECNUM, 0, 0, 4, PHD 
3; accumulated direct 1/0s 
jl _ITEM_CODE = 
PHD? SIRIO, L_DIOCNT, DECNUM, 0, 0, 4, PHD 
; accumulated buffered 1/0s 
JPI_ITEM_ CODE = 
PHD, 6uF 10, L_BIOCNT, DECNUM, 0, 0, 4, PHD 
Limit onc ut ime 
JP _ITEM_COD 
PHD; CPULIM, L_CPULIM, DECNUM, 0, 0, 4, PHD 
3 max. virtual _Page count 
jl _ITEM_CODE - 
PHD? PGFLQUOTA, L_PGFLQUOTA, DECNUM, 0, 0, 4, JIB 
: current aging file usage 
jpi_item. cope —° . 
PHD, eMeAcr ILCNT, L_PGFLCNT, DECNUM, 0, 0, 4, JIB 
open file Limit 
Ji “net CODE - 
FILLM, W_FILLM, DECNUM, 0, 0, a. J1B 
3; limit w: time queue entries 
jl _ITEM_CODE - 
PHD; TOLM, W_TQLM, DECNUM, 0, 0, 2. JIB 
3; authorized privilege mask 
JPI_ ODE - 
PHD; RKUTHPRIV, Q_AUTHPRIV, PRVMSK, 0, 0, 8, PHD 
;_installed image privilege mask 
JPI_ITEM_CODE - 
PHD; TMAGPRIV, Q_IMAGPRIV, PRVMSK, 0, 0, 8, PHD 
authorized base priority 
ipl ~ITER CODE - 
PHD AUTHPRI, B_AUTHPRI, DECNUM, 0, 0, ti PHD 
iF ithe pecking store address 
PHD? PAGrILLOC, L_PAGFIL, HEXNUM, 0, 0, 4, PHD 
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$1 
= ae L_IMGCNT, DECNUM, 0, 0, 4, PHD é 
ipl Pen“ eG CODE = : 
PHD; — PHDFLAGS, W_FLAGS, BITVEC, 0, 0, 2, PHD é 
: Beftine entries to PtbRLOfBL'’’’’’*"*"*’ ; 
:BASE, NAME, SOURCE, DTYPE, BITPOS, BITSIZ, OUTLEN, STRUCT 


: Define entries to PHbFLOTAL °°’ ’°****° 
BASE, NAME, SOURCE, DTYPE, BITPOS, BITSIZ, OUTLEN, STRUCT 


-ENDM JPI_GENERATE_TABLE 
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